home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / an210x / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  1.4 KB  |  34 lines
  1. ' Bindery object type definitions
  2. Global Const OT_WILD = -1
  3. Global Const OT_UNKNOWN = 0
  4. Global Const OT_USER = 1
  5. Global Const OT_USER_GROUP = 2
  6. Global Const OT_PRINT_QUEUE = 3
  7. Global Const OT_FILE_SERVER = 4
  8. Global Const OT_JOB_SERVER = 5
  9. Global Const OT_GATEWAY = 6
  10. Global Const OT_PRINT_SERVER = 7
  11. Global Const OT_ARCHIVE_QUEUE = 8
  12. Global Const OT_ARCHIVE_SERVER = 9
  13. Global Const OT_JOB_QUEUE = 10
  14. Global Const OT_ADMINISTRATION = 11
  15. Global Const OT_NAS_SNA_GATEWAY = 33
  16. Global Const OT_REMOTE_BRIDGE_SERVER = 36
  17. Global Const OT_TIME_SYNCHRONIZATION_SERVER = 45
  18. Global Const OT_ARCHIVE_SERVER_DYNAMIC_SAP = 46
  19. Global Const OT_ADVERTISING_PRINT_SERVER = 71
  20. Global Const OT_BTRIEVE_VAP = 75
  21. Global Const OT_PRINT_QUEUE_USER = 83
  22.  
  23. Global Const True = -1
  24. Global Const False = 0
  25.  
  26. 'NetWare DLL calls
  27. Declare Function GetDLLVersion Lib "NWCore.DLL" (ByVal DLLName$, MajorVer%, MinorVer%, RevLevel%, BetaLevel%) As Integer
  28. Declare Function GetDefaultConnectionID Lib "NWWrkstn.DLL" () As Long
  29. Declare Function GetConnectionID Lib "NWWrkstn.DLL" (ByVal serverName$, connID%) As Integer
  30. Declare Sub SetPreferredConnectionID Lib "NWWrkstn.DLL" (ByVal ConnectID%)
  31. Declare Sub GetFileServerName Lib "NWServer.DLL" (ByVal Conn%, ByVal serverName$)
  32. Declare Function ScanBinderyObject Lib "NWBind.DLL" (ByVal SearchObjName$, ByVal SearchObjectType%, ObjectID&, ByVal ObjectName$, ObjectType%, HasProperties%, ObjectFlag%, ObjectSec%) As Integer
  33.  
  34.